home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q0480.dms / q0480.adf / formathdo < prev    next >
Text File  |  1992-03-06  |  988b  |  43 lines
  1.  
  2. .bra {
  3. .ket }
  4. echo "Hard Disk Format"
  5. assign >NIL: WB_3.x: exists
  6. if warn
  7.   echo "*NWARNING:  Hard disk drive partition WB_3.x: cannot be found!"
  8.   echo "This script formats partitions WB_3.x: and Work:."
  9.   echo "Make sure the drive is properly connected and prepped, and"
  10.   echo "the partitions have the correct names."
  11.   skip exit
  12. endif
  13. ;
  14. echo "*NWARNING: This will reformat drive partitions WB_3.x: and Work:."
  15. echo "All information on these partitions will be lost!"
  16. ask "Are you sure you want to continue ? (Y/N) "
  17. if not warn
  18.   echo "Format cancelled."
  19.   skip exit
  20. endif
  21. ;
  22. path sys:system add
  23. echo "*NFormatting..."
  24. format <NIL: >NIL: drive WB_3.x: name System3.0 quick
  25. if fail
  26. skip failcase
  27. endif
  28. format <NIL: >NIL: drive Work: name Work quick
  29. lab failcase
  30. if fail
  31.   echo "Format failed."
  32.   skip exit
  33. endif
  34. ;
  35. echo "*NHard disk format is complete."
  36. ask "*NWould you like the system software to be*Ninstalled on your hard disk ? (y/n)"
  37.  
  38.  
  39. if warn
  40.   execute :InstallHD
  41. endif
  42. lab exit
  43.